10 PRINT"[147]  PRINT SHOP SIDE A TO SIDE B CONVERTER"
20 PRINT"               RELEASE 1.0"
30 PRINT"            BY BRIAN HEYBOER"
80 INPUT"SIDE A FILE TO BE CONVERTED";F1$
90 INPUT"SIDE B CONVERTED FILE";F2$
100 OPEN8,8,8,F1$+",P,R":OPEN9,8,9,F2$+",P,W"
110 PRINT#9,CHR$(0);CHR$(88);
120 FOR I=1 TO 35:GET#8,A$:NEXT
130 FOR I=4 TO 48:Q%=1:O$="":PRINT"*";
140 FOR J=1 TO 6:O%=0:FOR L=4 TO 0 STEP-4:B%=192
150 IF J=6 THEN IF L=0 THEN 270
160 GET#8,A$:IFA$="" THEN Q%=0:GOTO270
170 A%=ASC(A$)
180 FOR K=3 TO 0 STEP-1
190 Z%=A% AND B%
200 IF Q% THEN 230
210 IF Z%<>0 THEN Q%=1
220 GOTO 240
230 IF Z%<>B% THEN Q%=0
240 O%=O%+(Q%*(2^(K+L)))
250 B%=B%/4
260 NEXTK
270 NEXTL
280 O$=O$+CHR$(O%)
290 NEXTJ:PRINT#9,O$;:NEXTI
300 CLOSE8:CLOSE9